home *** CD-ROM | disk | FTP | other *** search
- mov ax,3 ;reset video to text mode
- int 10h ;= clear the screen (CLS)
- mov es,0b800h ;set es to text video segment
- call cursof ;turn off blinking cursor
- mov si,message ;message to display
- mov di,1760 ;display at line 11 on video
- mov ah,7 ;medium white color
- nex1: mov al,cs:[si] ;byte from code seg message
- inc si ;message +1
- cmp al,0 ;end of message ?
- jz done ;if so, jump to done
- mov es:[di],ax ;move byte+color to video
- add di,2 ;next video word address
- jmp nex1 ;do next video
- done: mov ah,0 ;wait for any key pressed
- int 16h ;keyboard interrupt
- call curson ;turn blinking cursor back on
- mov ax,4c00h ;interrupt 21h exit instruct.
- int 21h ;return to DOS> ready prompt
- message:
- db 'Captain Russell is now in command of the Starship Enterprise.',0
- curson: mov ah,1 ;set cursor type
- mov cx,0607h ;cursor normal type
- int 10h ;bios video interrupt
- mov dx,0 ;set video top left
- jmp >c1 ;> = forward jump
- cursof: mov dx,1900h ;cursor out of view
- c1: mov ah,2 ;set cursor position
- mov bh,0 ;page zero in text mode
- int 10h ;bios video interrupt
- ret ;return to call + next